home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / cees-crystal-with-leaves2.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  813 b   |  25 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║    Hangpl2.ls   │    (c) C.J. van der Mark      ║
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #║           PCG       9:526/464.3                 ║
  8. #╚═════════════════════════════════════════════════╝
  9. 10
  10. 20
  11. 20
  12. G
  13. G=[As]e[A]e[A]e[A]e[A]e[A]e[A]e[A]
  14. e=+(90)f-(90)>(-45)
  15. C={c(4)[F+(90)F+(90)F+(90)F>(+38)-(105)FF-(151)FF][f&(38)+(15)FF+(151)FF]}
  16. s={ij[+ZZtZtZtZG[h]]<(90)ij[-ZZtZtZtZG]}
  17. A={[C][d]}
  18. d={[f+(90)f+(90)f+(90)f>(+38)-(105)ff-(151)ff][f&(38)+(15)ff+(151)ff]}
  19. i=Z+(5)i
  20. j=Z-(5)j
  21. k=Z{[+++l.][++ll.][+lll.][llll.][-lll.][--ll.][---l.]}
  22. h=ZZZt(3.2)$[++[++ZZk]ZZk][--[--ZZk]ZZk]ZZk
  23. l=t!g
  24. @
  25.